Attribute VB_Name = "basVariables"
Public ServerName               As String
Public IntegrationID            As String
Public strUser                  As String
Public sEmailTo                 As String
Public strFailReason            As String
Public nNumResRecords           As String
Public nNumHeaderRecords        As String
Public sErrorMessage            As String
Public nTypeResponse            As String
Public nReferenceId             As String
Public nNewMessageID            As String
Public sFormType                As String
Public strXMLHeader             As String
Public strNextVal               As String
Public SarsResponseYn           As String
Public nComId                   As String
Public nBuId                    As String
Public lngNewIntNo              As String

'Response Variables
Public nReqSeqNum               As String
Public nReqStatus               As String
Public nApplID                  As String
Public nAreaCode                As String
Public nDirNumber               As String
Public dIssueDate               As String
Public dStartDate               As String
Public dEndDate                 As String
Public nTaxFree                 As String
Public nGrossPAYE               As String
Public sDirType                 As String
Public nAssAmt                  As Double
Public nProvTax                 As Double
Public nProvTaxTotalAmt         As Double
Public nPAYEAmt                 As Double
Public nVatAmt                  As Double
Public nTotalAmt                As Double
Public nIT88No                  As String

'Write xml
Public strCreateXMLRes          As String
Public strXMLResponse           As String

'Update Index table / Update XML table
Public strXmlVersDtdHeader      As String
Public lngNewInterfaceNo        As String
Public strNewMsgId              As String





